home *** CD-ROM | disk | FTP | other *** search
/ Computer Select (Limited Edition) / Computer Select.iso / pcc / v05n02 / initlj.bas < prev    next >
Encoding:
BASIC Source File  |  1991-10-12  |  563 b   |  12 lines
  1. 100 LNS$="15": TP$="30": LM$="15": RM$="40": LPI$="8"
  2. 110 PRINT "LP: "; LPI$; " lns/in; "; "lftmar= "; LM$; " cols";
  3. 120 PRINT "; rgtmar= "; RM$; " cols; topmar= "; TP$;
  4. 130 PRINT " lns; botmar="; VAL( LNS$ ) + VAL( TP$ ); "lns";
  5. 140 ONT$=CHR$(27)+"(10U"+CHR$(27)+"(s0p16.67h8.5v0s0b0T"+CHR$(27)+"&l0O"
  6. 150 EL$=CHR$(27)+"&l": EA$=CHR$(27)+"&a"
  7. 160 OPEN "LPT1" FOR OUTPUT AS #1
  8. 170 PRINT #1, CHR$(27)+"E";: PRINT #1, FONT$;
  9. 180 PRINT #1, EL$ + LPI$ + "D" + EL$ + TP$ + "E" + EL$ + LNS$ + "F";
  10. 190 PRINT #1, EA$ + LM$ + "L" + EA$ + RM$ + "M";
  11. 200 SYSTEM
  12.